Description: Set the dGE video mode for EGA of VGA Mapped Command: SET VIDEO TO FUNCTION __SetVideo(video) do case case upper(video) == "EGA" // ega mode setvideo(6) case upper(video) == "VGA" // vga mode setvideo(7) otherwise // default to ega mode setvideo(6) endcase RETURN(Void)